home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / amos / AMOSList_0197.lzh / AMOSLIST / 000115_amos-request@svcs1.digex.net_Wed Jan 22 19:47:49 1997.msg < prev    next >
Internet Message Format  |  1997-02-02  |  4KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  2.           by mail1.access.digex.net (8.8.4/8.8.4) with ESMTP
  3.       id TAA21556 for <mcox@access.digex.net>; Wed, 22 Jan 1997 19:47:44 -0500 (EST)
  4. Received: (from daemon@localhost)
  5.           by svcs1.digex.net (8.8.4/8.8.4)
  6.       id OAA29643 for amos-out; Wed, 22 Jan 1997 14:45:47 -0500 (EST)
  7. Received: from mail3.access.digex.net (mail3.access.digex.net [205.197.247.4])
  8.           by svcs1.digex.net (8.8.4/8.8.4) with ESMTP
  9.       id OAA29639 for <amos-list@svcs1.digex.net>; Wed, 22 Jan 1997 14:45:47 -0500 (EST)
  10. Received: from cheetah.spots.ab.ca (root@cheetah.spots.ab.ca [204.191.210.12])
  11.           by mail3.access.digex.net (8.8.4/8.8.4) with SMTP
  12.       id OAA08879 for <amos-list@access.digex.net>; Wed, 22 Jan 1997 14:45:42 -0500 (EST)
  13. Received: from dcousins (pm103.spots.ab.ca [204.191.210.23]) by cheetah.spots.ab.ca (8.6.12/8.6.12) with ESMTP id MAA32347; Wed, 22 Jan 1997 12:45:29 -0700
  14. Message-Id: <199701221945.MAA32347@cheetah.spots.ab.ca>
  15. From: "dcousins" <dcousins@spots.ab.ca>
  16. To: "Mush" <mpd@mushy-pd.demon.co.uk>
  17. Cc: "AMOS List" <amos-list@access.digex.net>
  18. Subject: Re: goto
  19. Date: Sat, 5 Jan 1980 02:59:01 -0700
  20. X-MSMail-Priority: Normal
  21. X-Priority: 3
  22. X-Mailer: Microsoft Internet Mail 4.70.1155
  23. MIME-Version: 1.0
  24. Content-Type: text/plain; charset=ISO-8859-1
  25. Content-Transfer-Encoding: 7bit
  26. Status: RO
  27. X-Status: 
  28.  
  29. > From: Mush <mpd@mushy-pd.demon.co.uk>
  30. > To: dcousins <dcousins@spots.ab.ca>
  31. > Subject: Re: goto
  32. > Date: Wednesday, January 22, 1997 10:56 AM
  33. > 
  34. > At 07:36 PM 08-01-00 -0700, you wrote:
  35. > >> From: Hakan Venderlof <grok@karkis.canit.se>
  36. > >> To: amos-list@access.digex.net
  37. > >> Subject: goto
  38. > >> Date: Monday, January 21, 2097 8:11 AM
  39. > >> 
  40. > >> Do
  41. > >> Goto Rnd(4)
  42. > >> 0
  43. > >> <bla>
  44. > >> 1
  45. > >> <bla>
  46. > >> 2
  47. > >> <bla>
  48. > >> 3
  49. > >> <bla>
  50. > >> 4
  51. > >> <bla>
  52. > >> Loop
  53. > >> 
  54. > >> How can I get the program to go to each label
  55. > >> only once?  (randomly)
  56. > >> 
  57. > >> I do know some complicated ways to achive this but there must be some
  58. > >easy
  59. > >> solution...?
  60. > >
  61. > >I suppose you want an indefinate number of 'goto's.  This is really
  62. simple,
  63. > >and you shouldn't use goto's at all.  If you only want them to be
  64. execute
  65. > >once, then use an If..ElseIf..ElseIf..EndIf like the case function from
  66. > >'C'.
  67. > >
  68. > >If you want a number of functions to be executed in a random order, use
  69. a
  70. > >for loop, not a do.  Set up an array, then randomize it, then go through
  71. it
  72. > >using gosub's.  Here it is (I don't know if it works, just typing this
  73. on
  74. > >my PC).
  75. > >
  76. > >Dim A(xx) : Rem Where xx is the number of procedures
  77. > >For I=0 to xx
  78. > >    A(I)=I
  79. > >Next I
  80. > >For I=0 to xx
  81. > >    Swap A(Rnd(xx),Rnd(xx))
  82. > >Next I
  83. > >For I=0 to xx
  84. > >    Gosub A(I)
  85. > >Next I
  86. > >End
  87. > >
  88. > >1    Rem Place Your code here.
  89. > >    Return
  90. > >2    Rem Place Some more code here.
  91. > >    Return
  92. > >3
  93. > >...
  94. > >xx    Last Bit of code
  95. > >    Return
  96. > >
  97. > >> 
  98. > >> I think it should be possible to use arrays but I don't know how to
  99. set
  100. > >it up.
  101. > >
  102. > >    If this doesn't work (AMOS may not have true computed jumps, I can't
  103. > >remember right now), I figure out a different way.
  104. > >
  105. > >    TTFN
  106. > >
  107. > >    David
  108. > >
  109. > 
  110. > Guys, why not use a simpler solution. I found it very handy in Twinz. Use
  111. > the ON command:
  112. > 
  113. > do
  114. > r=rnd(4)
  115. > on r goto 1,2,3,4
  116. > loop
  117. > 
  118. > 1:
  119. > 
  120. > 2:
  121. > 
  122. > 3:
  123. > 
  124. > 4:
  125. > 
  126. > So simple and effective. It works with GOSUB and PROC too.
  127.  
  128.     Yes, but it doesn't do waht he needs it to do.  Each procedure can only be
  129. executed once, and in a random order.
  130.  
  131.     TTFN
  132.  
  133.     David